OpenEdge Development:<br />Programming Interfaces Verifying a static temp-table against XML Schema

/* pi-tfx-read-2.p / / Verifies XML Schema against a static temp-table. */ {pi-tfx-parameterVarDefs.i} DEFINE VARIABLE returnValue AS LOGICAL NO-UNDO. `DEFINE TEMP-TABLE ttCust` FIELD CustNum LIKE Customer.CustNum FIELD Name LIKE Customer.Name FORMAT "X(30)". ASSIGN cSourceType = "FILE" cFile = `"ttCust.xsd"` lOverrideDefaultMapping = ? cFieldTypeMapping = ? cVerifySchemaMode = `"STRICT"`. DISPLAY "Reading XML Schema..." SKIP. returnValue = TEMP-TABLE ttCust:`READ-XMLSCHEMA`(cSourceType, cFile, lOverrideDefaultMapping, cFieldTypeMapping, cVerifySchemaMode). IF returnValue THEN DISPLAY "Success: Temp-table definition verified against XML Schema.".

/* pi-tfx-read-2.p */ 
/* Verifies XML Schema against a static temp-table. */ 
{pi-tfx-parameterVarDefs.i} 
     
DEFINE VARIABLE returnValue AS LOGICAL NO-UNDO. 
DEFINE TEMP-TABLE ttCust  
    FIELD CustNum LIKE Customer.CustNum 
    FIELD Name LIKE Customer.Name FORMAT "X(30)". 
     
ASSIGN 
    cSourceType = "FILE" 
    cFile = "ttCust.xsd" 
    lOverrideDefaultMapping = ? 
    cFieldTypeMapping = ? 
    cVerifySchemaMode = "STRICT". 
DISPLAY "Reading XML Schema..." SKIP. 
     
returnValue = TEMP-TABLE ttCust:READ-XMLSCHEMA(cSourceType, cFile, 
                                               lOverrideDefaultMapping, 
                                               cFieldTypeMapping,  
                                               cVerifySchemaMode). 
IF returnValue THEN  
    DISPLAY "Success: Temp-table definition verified against XML Schema.".

Because the verification mode is “STRICT”, the presence of more fields in the XML Schema than are actually defined for the temp-table causes the method to fail. The definition and the XML Schema are not an exact match. Change the verification mode to “LOOSE”, and the code completes successfully because the temp-table definition is a partial match for the XML Schema.